program multiply99
    implicit none
    integer i,j
    integer a(9,9)

    do i=1,9
        do j=1,i
            a(i,j)=i*j
        end do
    end do

    do i=1,9
        do j=1,i
            write (*,10) j,i,a(i,j)
        end do
    print *,
    end do
10 format(i2,'*',i1,'=',i2,$)

end program

